﻿'Digite o NameSpace: Babok
'Digite o nome da Classe de dominio: Verificacao

'--TESTE:-----------
'    <TestMethod()> _
'    Public Sub SalvarVerificacao()
'        Dim _Verificacao As Verificacao
'        _Verificacao = New Verificacao
'
'        _Verificacao.Salvar()
'
'        Assert.IsTrue(_Verificacao.Id.HasValue)
'    End Sub
<Serializable()> _
Public Class Verificacao
    Inherits BaseDominio

#Region "Negocio"

    Public Sub New()
        MyBase.New()
    End Sub

    Public Overridable Function Buscar(ByVal _id As Long) As Verificacao
        Return MyBase.VerificacaoDao.Buscar(_id)
    End Function

    Public Overridable Sub Salvar()
        MyBase.VerificacaoDao.Salvar(Me)
    End Sub

#End Region

End Class

